%macro _min/parmbuff;
/*--------------------------------------------\
| Author:   Duo Zhou;                         |
| Created:  3-23-2001 3:43pm;                 |
| Purpose:  Calculate the mininum number from |
|           a list of numbers;                |
\--------------------------------------------*/
%local _wcount_ _min_;
%let _wcount_=0; %let _min_=;
%do %while(%length(%nrbquote(%qscan(%quote(&syspbuff), %eval(&_wcount_+1), %str(,() )))));
   %let _wcount_=%eval(&_wcount_+1);
   %let word&_wcount_=%qscan(%quote(&syspbuff), &_wcount_, %str(,() ));
   %if (%quote(&_min_) eq) %then %let _min_=&&word&_wcount_;
   %else %if (&&word&_wcount_ lt &_min_) %then %let _min_=&&word&_wcount_;
%end;&_min_
%mend _min;